home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / cryptomind 99 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  213 lines
  1. 10 poke56,56:clr:poke53281,0:poke53280,0
  2. 15 poke788,52
  3. 20 print"[147]":gosub1990
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 40 sys57812"mindfont",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 50 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  7. 60 poke53281,0:poke53280,0:dimw$(300),w(13)
  8. 70 sys52736,"cryptdata 99",dv
  9. 80 h=peek(252)*256+peek(251)
  10. 90 goto390
  11. 100 poke214,y:print""
  12. 110 printtab(x)"[176]"left$(lt$,xx)"[174]"
  13. 120 fori=1toyy:printtab(x)"[165]"left$(sp$,xx)"[167][149]@":next
  14. 130 printtab(x)"[173]"left$(lb$,xx)"[189][149]@"
  15. 140 printtab(x+1)left$(sh$,xx+2)
  16. 150 poke214,y+1:print:printtab(x+2);
  17. 160 return
  18. 170 poke214,23:print
  19. 180 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[145]":poke198,0
  20. 190 geta$:ifa$=""then190
  21. 200 fg=0:ifa$=chr$(13)thenfg=1
  22. 210 return
  23. 220 syscm,1024,16384+s*2000,1000
  24. 230 syscm,55296,17384+s*2000,1000
  25. 240 return
  26. 250 syscm,16384+s*2000,1024,1000
  27. 260 syscm,17384+s*2000,55296,1000
  28. 270 return
  29. 280 t=(t+1)and63
  30. 290 syscm,15872+t*8,14336,8
  31. 300 return
  32. 310 geta$:ifa$=""then310
  33. 320 ifa$>="a"anda$<="z"thena$=chr$(asc(a$)+128)
  34. 330 ifa$<"[193]"ora$>"[218]"then310
  35. 340 return
  36. 350 poke214,y+1:print:printtab(4)"[154][209]uit this game to the menu? (y[154]/n[154])"
  37. 360 geta$:ifa$=""then360
  38. 370 ifa$="y"thenreturn
  39. 380 fl=1:return
  40. 390 print"[147]":cm=53176
  41. 400 fori=1to5:readm$(i):next
  42. 410 data"    [208]lay [195][210][217][208][212][207][205][201][206][196]
  43. 420 [131]"  (NULL)ules of len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)str$
  44. 430 data" [200]ow to [211]olve [195]ryptics
  45. 440 [131]"  len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)str$ (NULL)olution
  46. 450 data"   [210]eturn to [204][207][193][196][211][212][193][210]
  47. 460 lt$[178]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  48. 470 sp$[178]"                                      "
  49. 480 lb$[178]"totototototototototototototototototototototototototototototototototototototo"
  50. 490 sh$[178]"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  51. 500 md$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  52. 510 m2$(0)[178]"(NULL)valasc(NULL) of which letter"
  53. 520 m2$(1)[178]"(NULL)right$chr$left$(NULL) of which letter"
  54. 530 m2$(2)[178]"peekval(NULL)(NULL)valval(NULL) which letters"
  55. 540 m2$(3)[178]"(NULL)hat's the word"
  56. 550 [153]"load":[151]53272,31
  57. 560 t[178]12:[141]280
  58. 570 [129]i[178]100[164]140:[139]w$(i)[178]"*"[167]u[178]i[171]3:i[178]140
  59. 580 [130]
  60. 590 [153]"loadsys";
  61. 600 [129]i[178]0[164]23:[153]sh$;:[130]:[153][200](sh$,39)"cmdcmdsave@@"
  62. 610 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:s[178]0:[141]220
  63. 620 x[178]8:xx[178]23:y[178]3:yy[178]14:[141]100
  64. 630 [153]"open len (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) right$ (NULL) str$cont"
  65. 640 [129]i[178]1[164]5:[153][163]9)m$(i):[153]:[130]:s[178]2:[141]220
  66. 650 m[178]1:w[178]0
  67. 660 [151]214,6[170]m[172]2:[153]:[153][163]9)""m$(m)"on":[151]198,0
  68. 670 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[175]a$[179][177]"t"[167]670
  69. 680 [139]a$[178][199](13)[167]s[178]1:[141]220:[137]740
  70. 690 [139]a$[178]"t"[167][141]280
  71. 700 [153][163]9)"cont"m$(m)
  72. 710 [139]a$[178]"on"[167]m[178]m[171]1:[139]m[179]1[167]m[178]5
  73. 720 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]5[167]m[178]1
  74. 730 [137]660
  75. 740 [145]m[141]760,1600,1410,1490,1760
  76. 750 [137]660
  77. 760 s[178]0:[141]250:cl[178]2:sc[178]100
  78. 770 x[178]5:xx[178]28:y[178]0:yy[178]11:[141]100
  79. 780 [153][163]x[170]1)"listatnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  80. 790 x[178]2:xx[178]34:y[178]15:yy[178]5:[141]100
  81. 800 [153]"(NULL)contvalasc(NULL)  peekcontval(NULL)(NULL)valval(NULL)  (NULL)contright$chr$left$(NULL)  chr$cont(NULL)val(NULL)(NULL)  (NULL)contval(NULL)(NULL)
  82. 810 printtab(9)"[215][207][210][196]:"tab(21)"[211][195][207][210][197]:"
  83. 820 printtab(x)"[171]"left$(md$,xx)"[179]"
  84. 830 fori=1to10:w(i)=0:next
  85. 840 w=w+1:ifw(w)andw<11then840
  86. 850 ifw>10thenw=0:goto840
  87. 860 poke214,y+2:print:printtab(14)"   [157][157][157]"w;tab(27)"    [157][157][157][157]"sc
  88. 870 gg=0:cl=2:wd$=w$(u+w*4):lw=len(wd$)
  89. 880 poke214,19:print"[155]":printtab(x+1)left$(sp$,xx)"[145]":printtab(x+1)w$(u+1+4*w)
  90. 890 printtab(x+1)left$(sp$,xx)"[145]":printtab(x+1)w$(u+2+4*w):g=1
  91. 900 poke214,y+1:print
  92. 902 ifggthenprinttab(4)"[151][204][197][198][212]  [194][197][212][215][197][197][206]  [210][201][199][200][212]  [199][154][213][197][211][211]  [205][154]enu":goto910
  93. 905 printtab(4)"[204][154][197][198][212]  [194][154][197][212][215][197][197][206]  [210][154][201][199][200][212]  [199][154][213][197][211][211]  [205][154][197][206][213]
  94. 910 [161]a$:[139]a$[179][177]"l"[175]a$[179][177]"b"[175]a$[179][177]"r"[175]a$[179][177]"g"[175]a$[179][177]"m"[175]a$[179][177]"t"[167]910
  95. 920 [139]a$[178]"t"[167][141]280:[137]910
  96. 930 [139]a$[179][177]"m"[167]960
  97. 940 [141]350:[139]fl[167]fl[178]0:[137]900
  98. 950 s[178]1:[141]250:w[178]0:[142]
  99. 960 [139]a$[178]"g"[167]m2[178]3:[137]1010
  100. 970 [139]gg[167]900
  101. 980 [139]a$[178]"l"[167]m2[178]0:sc[178]sc[171]1
  102. 990 [139]a$[178]"r"[167]m2[178]1:sc[178]sc[171]1
  103. 1000 [139]a$[178]"b"[167]m2[178]2:sc[178]sc[171]2
  104. 1010 [151]214,y[170]1:[153]:[153][163]x[170]1)[200](sp$,xx)"on"
  105. 1020 [153][163]x[170]6[170]4[172](m2[178]2))"cont"m2$(m2)"? ";
  106. 1030 [139]m2[178]3[167]1250
  107. 1040 [141]310:a1$[178]a$:a1[178][198](a1$)[171]192
  108. 1050 [139]m2[178]0[175]a1$[178]"atn"[167]1040
  109. 1060 [139]m2[178]1[175]a1$[178]"(NULL)"[167]1040
  110. 1070 [153]""a1$;
  111. 1080 [139]m2[179]2[167][153]:[137]1130
  112. 1090 [153]"cont and ";
  113. 1100 [141]310:a2$[178]a$:a2[178][198](a2$)[171]192
  114. 1110 [139]a2$[179][178]a1$[167]1100
  115. 1120 [153]""a2$;
  116. 1130 [139]m2[178]0[167]a2[178]a1:a1[178]0:[137]1150
  117. 1140 [139]m2[178]1[167]a2[178]26:[137]1150
  118. 1150 [151]214,2[170]g:[153]
  119. 1160 [153][163]7[170]a1);
  120. 1170 cl[178]cl[170]1
  121. 1180 [151]646,cl:[153]""[200](sp$,a2[171]a1[170](m2[178]2)[170](m2[178]0))
  122. 1190 co[178]0:[129]i[178]1[164]lw:l[178][198]([202](wd$,i,1))[171]192
  123. 1200 [139]l[177]a1[175]l[179]a2[167]co[178]co[170]1
  124. 1210 [130]
  125. 1220 [151]214,2[170]g:[153]:[153][163]6[170]a1[170](a2[171]a1)[173]2[171](m2[178]1))""[199](co[170]48)
  126. 1230 g[178]g[170]1:[139]g[177]9[167]gg[178]1
  127. 1240 [137]900
  128. 1250 [141]1880:[153]"onon":zz[178]0
  129. 1260 [151]214,16:[153]:[153][163]x[170]1)[200](sp$,xx)"on"
  130. 1270 [153][163]14);:[151]646,ca
  131. 1280 [139]q9$[178]wd$[167][153]"(NULL) right$ chr$ left$ (NULL) (NULL) !on":w(w)[178]1:[137]1300
  132. 1290 [153]"(NULL) (NULL) (NULL) (NULL) chr$ (NULL) !on"
  133. 1300 zz[178]zz[170]1:[139]zz[179]20[167]ca[178]1[171]ca:[137]1270
  134. 1310 [139]q9$[179][177]wd$[167]sc[178]sc[171]3
  135. 1320 [129]i[178]1[164]10
  136. 1330 [139]w(i)[167]1350
  137. 1340 i[178]10:[130]:[151]214,3:[153]:[129]j[178]1[164]9:[153][163]6)[200](sp$,28):[130]:[137]840
  138. 1350 [130]
  139. 1360 [151]214,16:[153]
  140. 1370 [153]"open       (NULL)our score was"sc"        "
  141. 1380 [153]"open      atnny key for the menu        "
  142. 1390 [161]a$:[139]a$[178]""[167]1390
  143. 1400 s[178]2:[141]250:w[178]0:[142]
  144. 1410 [153]"loadopen":[129]i[178]1[164]99
  145. 1420 [139]w$(i)[179][177]"\"[167]1450
  146. 1430 [141]170:[139]fg[167]i[178]99:[130]:s[178]2:[141]250:[142]
  147. 1440 [153]"loadopen":i[178]i[170]1
  148. 1450 [153]" "w$(i)
  149. 1460 [130]
  150. 1470 [141]170:[139]fg[167]i[178]99:s[178]2:[141]250:[142]
  151. 1480 [137]1410
  152. 1490 i[178]0
  153. 1500 [153]"load"
  154. 1510 [153]""w$(u[170]4[170]i[172]4)
  155. 1520 [153]"cont "w$(u[170]5[170]i[172]4)
  156. 1530 [153]" "w$(u[170]6[170]i[172]4)
  157. 1540 [153]"open  "w$(u[170]7[170]i[172]4)
  158. 1550 [153]
  159. 1560 i[178]i[170]1:[139]i[173]4[179][177][181](i[173]4)[167]1510
  160. 1570 [141]170:[139]fg[167]s[178]2:[141]250:[142]
  161. 1580 [139]i[179]10[167]1500
  162. 1590 i[178]0:[137]1500
  163. 1600 x[178]3:xx[178]32:y[178]2:yy[178]16:[141]100
  164. 1610 [153][163]5)"open  (NULL)ou may get clues to the
  165. 1620 printtab(5)"word defined by the cryptic
  166. 1630 [153][163]5)"clue by pressing (NULL)open, (NULL)open or peekopen.
  167. 1640 printtab(5)"[212]he number of letters in the
  168. 1650 [153][163]5)"word found in the range you
  169. 1660 printtab(5)"selected is shown.  [206]ote that
  170. 1670 [153][163]5)"the range is (NULL)(NULL)(NULL) inclusive.
  171. 1680 printtab(5)"  [217]ou lose [158]1[159] point